home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 242
/
242.d81
/
jet airplane
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
356b
|
21 lines
9200 rem jet airplane
9210 d=50
9220 fora=1to15
9230 poke54296,a
9240 gosub9350:gosub9300
9250 nexta
9260 d=100
9270 forb=1to30
9280 gosub9350:gosub9300
9290 nextb:return:rem to main
9300 poke54277,15:poke54278,15
9310 poke54273,110+a:poke54272,185+a
9320 poke54276,33:fort=1tod:nextt
9330 poke54276,32:fort=1to10:nextt
9340 return
9350 poke54284,15:poke54285,15
9360 poke54280,10+a:poke54279,200+a
9370 poke54283,129:fort=1tod:nextt
9380 poke54283,128:fort=1to10:nextt
9390 return